10 REM --------------------------------
20 REM - MULTI-CHANGE                 -
30 REM --------------------------------
40 REM - (C) 1988 BY                  -
50 REM -                              -
60 REM - JAN POMPE / BREMEN           -
70 REM --------------------------------
100 :
110 REM VORBEREITUNGEN
120 REM --------------
130 :
140 PRINT"[147]"
150 :
160 POKE646,   6
170 POKE53280, 6
180 POKE53281,14
190 :
200 GOSUB60000 :REM ASSEMBLER-ROUTINEN LADEN
1000 :
1010 REM MENU
1020 REM ----
1030 :
1040 PRINT"[147]"
1050 :
1060 PRINT"   [169]                                  [146][169]"
1070 PRINT "  [169]           MULTI-CHANGE           [146][169]"
1080 PRINT " [169]                                  [146][169]"
1090 PRINT "  1 [146]  :  PIXEL-CHANGE"
1100 PRINT "  2 [146]  :  SINGLE-BIT-CHANGE"
1110 PRINT "  3 [146]  :  RANDOM-CHANGE"
1120 PRINT "  4 [146]  :  BILD SPEICHERN"
1130 PRINT "  5 [146]  :  BILD LADEN"
1140 PRINT "  6 [146]  :  DIRECTORY"
1150 PRINT "  7 [146]  :  KOPIE ANLEGEN"
1160 PRINT "  8 [146]  :  KOPIE AUFRUFEN"
1170 PRINT "  X [146]  :  RESET"
1180 :
1190 GETA$:IFA$=""THEN1190
1200 :   IFA$="1"THEN2000     :REM PIXEL-CHANGE
1210 :   IFA$="2"THEN3000     :REM SINGLE-BIT-CHANGE
1220 :   IFA$="3"THEN4000     :REM RANDOM-CHANGE
1230 :   IFA$="4"THEN5000     :REM BILD SPEICHERN
1240 :   IFA$="5"THEN6000     :REM BILD LADEN
1250 :   IFA$="6"THEN7000     :REM DIRECTORY
1260 :   IFA$="7"THENSYS49158 :REM KOPIEN ANLEGEN
1270 :   IFA$="8"THENSYS49161 :REM KOPIEN AUFRUFEN
1280 :   IFA$="X"THENSYS64738 :REM RESET
1290 GOTO1190
2000 :
2010 REM PIXEL-CHANGE
2020 REM ------------
2030 :
2040 GOSUB10000 :REM GRAFIK EINSCHALTEN UND FAERBEN
2050 :
2060 GETW$:IFW$=""THEN2060
2070 :
2080 SYS49167 :REM PIXEL-CHANGE
2090 :
2100 GETW$:IFW$=""THEN2100
2110 :
2120 GOSUB11000 :REM GRAFIK AUSSCHALTEN
2130 :
2140 GOTO1000 :REM MENU
3000 :
3010 REM SINGLE-BIT-CHANGE
3020 REM -----------------
3030 :
3040 POKE214,23:SYS58640 :REM CURSOR POSITIONIEREN
3050 :
3060 POKE19,64
3070 INPUT" BITKOMBINATION '00' WIRD ZU ";      BI$(0):PRINT
3080 INPUT"[145] BITKOMBINATION '01' WIRD ZU    [157][157][157]";BI$(1):PRINT
3090 INPUT"[145] BITKOMBINATION '10' WIRD ZU    [157][157][157]";BI$(2):PRINT
3100 INPUT"[145] BITKOMBINATION '11' WIRD ZU    [157][157][157]";BI$(3):PRINT
3130 POKE19,0
3140 :
3150 FORI=0TO3
3160 :   BI=2*VAL(LEFT$(BI$(I),1))+VAL(RIGHT$(BI$(I),1))
3170 :   POKE828+I,BI*64
3180 NEXT
3190 :
3200 GOSUB10000 :REM GRAFIK EINSCHALTEN UND FAERBEN
3210 :
3220 GETW$:IFW$=""THEN3220
3230 :
3240 SYS49152
3250 :
3260 GETW$:IFW$=""THEN3260
3270 :
3280 GOSUB11000 :REM GRAFIK AUSSCHALTEN
3290 :
3300 GOTO1000 :REM MENU
4000 :
4010 REM RANDOM-CHANGE
4020 REM -------------
4030 :
4040 GOSUB10000 :REM GRAFIK EINSCHALTEN UND FAERBEN
4050 :
4060 GETW$:IFW$=""THEN4060
4070 :
4080 SYS49164 :REM RANDOM-CHANGE
4090 :
4100 GETW$:IFW$=""THEN4100
4110 :
4120 GOSUB11000 :REM GRAFIK AUSSCHALTEN
4130 :
4140 GOTO1000 :REM MENU
5000 :
5010 REM BILD SPEICHERN
5020 REM --------------
5030 :
5040 POKE214,23:SYS58640 :REM CURSOR POSITIONIEREN
5050 INPUT" FILENAME";FI$
5060 :
5070 SYS(57812)FI$,8 :REM PARAMETER UEBERGEBEN
5080 POKE193, 0
5090 POKE194,32
5100 POKE174,64
5110 POKE175,63
5120 SYS62957 :REM SAVE
5130 :
5140 GOTO1000 :REM MENU
6000 :
6010 REM BILD LADEN
6020 REM ----------
6030 :
6040 POKE214,23:SYS58640 :REM CURSOR POSITIONIEREN
6050 INPUT" FILENAME";FI$
6060 :
6070 SYS(57812)FI$,8 :REM PARAMETER UEBERGEBEN
6080 POKE780, 0
6090 POKE781, 0
6100 POKE782,32
6110 SYS65493 :REM LOAD
6120 :
6130 GOTO1000 :REM MENU
7000 :
7010 REM DIRECTORY
7020 REM ---------
7030 :
7040 PRINT"[147]"
7050 :
7060 N$=CHR$(0)
7070 :
7080 OPEN1,8,0,"$"
7090 :
7100 GET#1,DU$,DU$
7110 :
7120 GET#1,DU$,DU$,LO$,HI$
7130 :   IFST=64THENCLOSE1:GOTO7200
7140 :   PRINTASC(HI$+N$)*256+ASC(LO$+N$);
7150 :   GET#1,B1$,B2$
7160 :       IFB1$THENPRINTB1$;B2$;:GOTO7150
7170 :   PRINT
7180 GOTO7120
7190 :
7200 PRINT"  TASTE [146]"
7210 GETW$:IFW$=""THEN7210
7220 :
7230 GOTO1000 :REM MENU
10000 :
10010 REM GRAFIK EINSCHALTEN UND FAERBEN
10020 REM ------------------------------
10030 :
10040 POKE53265,59
10050 POKE53272,24
10060 :
10070 SYS49155 :REM FAERBEN
10080 :
10090 RETURN
11000 :
11010 REM GRAFIK AUSSCHALTEN
11020 REM ------------------
11030 :
11040 POKE53265,27
11050 POKE53272,21
11060 :
11070 RETURN
60000 :
60010 REM ASSEMBLER-ROUTINEN LADEN
60020 REM ------------------------
60030 :
60040 FORI=49152TO49432
60050 :   READA
60060 :   POKEI,A
60070 NEXT
60080 :
60090 RETURN
61000 :
61010 REM DATEN
61020 REM -----
61030 :
61040 DATA76,59,192,76,116,192,76,141,192,76,166,192,76,189,192,160,0,132,247
61050 DATA169,32,133,248,177,247,160,4,10,8,10,38,249,40,38,249,136,208,245,160
61060 DATA0,165,249,145,247,230,247,230,247,208,229,230,248,165,248,201,64,208
61070 DATA221,96,160,0,132,247,169,32,133,248,177,247,162,4,160,0,132,250,10
61080 DATA38,250,10,38,250,164,250,72,185,60,3,10,38,249,10,38,249,104,202,208
61090 DATA230,160,0,165,249,145,247,230,247,208,216,230,248,165,248,201,64,208
61100 DATA208,96,160,0,132,247,169,4,133,248,169,110,145,247,230,247,208,250
61110 DATA230,248,166,248,224,8,208,242,96,169,0,133,95,169,32,133,96,169,64
61120 DATA133,90,133,88,169,63,133,91,169,95,133,89,76,191,163,169,0,133,95,169
61130 DATA64,133,96,133,90,133,88,169,95,133,91,169,63,133,89,76,191,163,160
61140 DATA0,132,247,169,32,133,248,169,255,141,14,212,141,15,212,162,129,142
61150 DATA18,212,202,142,24,212,162,4,169,0,133,249,133,250,177,247,133,252,6
61160 DATA252,38,250,6,252,38,250,173,27,212,74,176,11,70,250,38,249,70,250,38
61170 DATA249,76,5,193,70,250,8,70,250,38,249,40,38,249,202,208,218,165,249,145
61180 DATA247,230,247,208,198,230,248,165,248,201,64,208,190,96